home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00791_SU-IN su 1.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  667 b   |  21 lines
  1. on enterFrame
  2.   global g1erSprNav, exitFrame, gLocLabel, g1erSprLoc, gMaxBoutons, gEtudAct, gEtudPrec, gEtatEtud, gPartie, gSujet0, gSujet1, gPosDebE, gScopeSu
  3.   set gMaxBoutons to 34
  4.   set gLocLabel to "SU:RN SU"
  5.   set gEtudPrec to gEtudAct
  6.   set gEtudAct to "SU"
  7.   set gSujet1 to 0
  8.   if ((gEtudPrec = "CO") or (gEtudPrec = "SU")) and (gPartie <> " ") then
  9.     nothing()
  10.   else
  11.     repeat with i = g1erSprLoc + 10 to gMaxBoutons
  12.       set the visible of sprite i to 0
  13.     end repeat
  14.     gScopeSu(visible, 0)
  15.     gScopeSu(Box, 20, 92, 280, 256)
  16.     gScopeSu(Restore)
  17.   end if
  18.   set the foreColor of cast "ZI5" to the foreColor of cast "jaune"
  19.   set gPosDebE to 0
  20. end
  21.